﻿Imports JuegosLanBackend
Public Class Actualizar
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then

            Dim id = Request.Params.Get("id")

            Dim negocio = New JuegoNegocio
            Dim modelo = negocio.obtener(id)

            Me.txtIdJuego.Value = modelo.idJuego
            Me.TxtNombre.Text = modelo.nombre
            Me.TxtVersion.Text = modelo.Version
            Me.TxtFabricante.Text = modelo.Fabricante

        End If
    End Sub

    

   

    Protected Sub BtnActualiza_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnActualiza.Click
        Try
            Dim modelo = New JuegoNegocio
            modelo.actualizar(Me.txtIdJuego.Value, Me.TxtNombre.Text, Me.TxtVersion.Text, Me.TxtFabricante.Text)

            Response.Redirect("EditJuego.aspx", True)
            MsgBox("Insertado", True)
        Catch ex As Exception

            MsgBox("No se pudo insertaractualizar")
        End Try
    End Sub

    Protected Sub BtnVolver_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnVolver.Click
        Response.Redirect("EditJuego.aspx", True)
    End Sub
End Class